home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / strmpage.zip / STRMPAGE.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-09-10  |  2KB  |  200 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     Time     TIME001
  31.     Time     TIME002
  32.     Time     TIME003
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     TIME001 = Time()
  37.     TIME002 = ReadLine(PCBDat(), 189)
  38.     TIME003 = ReadLine(PCBDat(), 190)
  39.     INTEGER004 = 5
  40.     STRING003 = Chr(7)
  41.     STRING004 = Chr(13)
  42.     STRING005 = Chr(27) + "["
  43.     STRING006 = STRING005 + "0;0H"
  44.     STRING007 = STRING005 + "K"
  45.     If ((TIME001 >= TIME002) && (TIME001 <= TIME003)) Then
  46.         DispStr "%" + PPEPath() + "PAGE.PCB"
  47.         STRING001 = Space(25) + "Slam the Space Bar to Chat"
  48.         Gosub LABEL002
  49.         For INTEGER003 = 1 To INTEGER004
  50.             Color 9
  51.             Print "<∙■∙>"
  52.             MPrint STRING003
  53.             Gosub LABEL003
  54.             If (KInkey() == " ") Then
  55.                 STRING001 = " "
  56.                 Gosub LABEL002
  57.                 Chat
  58.                 PageOff
  59.                 End
  60.             Endif
  61.             If (Abort()) INTEGER003 = INTEGER004 + 1
  62.         Next
  63.         STRING001 = " "
  64.         Gosub LABEL002
  65.         If (Abort()) Then
  66.             ResetDisp
  67.             Newline
  68.             End
  69.             Goto LABEL001
  70.         Endif
  71.         Newline
  72.     Endif
  73.     :LABEL001
  74.     PageOn
  75.     DispStr "%" + PPEPath() + "NOT.PCB"
  76.     STRING002 = NoChar()
  77.     PromptStr 571, STRING002, 1, "", 16384 + 64 + 256 + 2 + 8
  78.     If (STRING002 == YesChar()) KbdStuff "C" + STRING004 + "Y" + STRING004
  79.     End
  80.     :LABEL002
  81.     Color 4
  82.     Print Space(9) + "Special thanx to Deja Vu & Pimp for registering this software!"
  83.     Newline
  84.     Color 4
  85.     INTEGER001 = 25
  86.     INTEGER002 = 20
  87.     SPrint STRING001
  88.     SPrint STRING005 + String(INTEGER002) + ";" + String(INTEGER001) + "H"
  89.     Return
  90.     :LABEL003
  91.     Sound 110
  92.     Sound 2600
  93.     Delay 3
  94.     Sound 110
  95.     Sound 2600
  96.     Delay 3
  97.     Sound 110
  98.     Sound 2600
  99.     Delay 3
  100.     Sound 110
  101.     Sound 2600
  102.     Delay 3
  103.     Sound 110
  104.     Sound 2600
  105.     Delay 3
  106.     Sound 110
  107.     Sound 2600
  108.     Delay 3
  109.     Sound 110
  110.     Sound 2600
  111.     Delay 3
  112.     Sound 110
  113.     Sound 2600
  114.     Delay 3
  115.     Sound 110
  116.     Sound 2600
  117.     Delay 3
  118.     Sound 0
  119.     Delay 10
  120.     Return
  121.  
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Usage report (before postprocessing)
  125. ;
  126. ; ■ Statements used :
  127. ;
  128. ;    3       End
  129. ;    3       Color 
  130. ;    6       Goto 
  131. ;    18      Let 
  132. ;    2       Print 
  133. ;    6       If 
  134. ;    1       ResetDisp
  135. ;    4       Gosub 
  136. ;    2       Return
  137. ;    1       PromptStr 
  138. ;    10      Delay 
  139. ;    3       Newline
  140. ;    1       KbdStuff 
  141. ;    2       DispStr 
  142. ;    19      Sound 
  143. ;    1       Chat
  144. ;    2       SPrint 
  145. ;    1       MPrint 
  146. ;    1       PageOn
  147. ;    1       PageOff
  148. ;
  149. ;
  150. ; ■ Functions used :
  151. ;
  152. ;    22      +
  153. ;    2       ==
  154. ;    1       <
  155. ;    2       <=
  156. ;    3       >=
  157. ;    4       !
  158. ;    3       &&
  159. ;    1       ||
  160. ;    2       Space()
  161. ;    3       Chr()
  162. ;    2       Abort()
  163. ;    1       Time()
  164. ;    1       NoChar()
  165. ;    1       YesChar()
  166. ;    2       String()
  167. ;    2       PCBDat()
  168. ;    2       PPEPath()
  169. ;    2       ReadLine()
  170. ;    1       KInkey()
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Analysis flags : Md
  175. ;
  176. ; M - Send text to modem only ■ 4
  177. ;     Some informations are sent only to the modem, not to the local
  178. ;     screen, this is a well known way to make stealth backdoors, Check!
  179. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  180. ;
  181. ; d - Access PCBOARD.DAT ■ 2
  182. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  183. ;     for many PPE so they can find various informations on the system
  184. ;     (system paths, max number of lines in messages, ...) but it may also
  185. ;     be a way to gather vital informations.
  186. ;     ■ Search for : PCBDAT()
  187. ;
  188. ;------------------------------------------------------------------------------
  189. ;
  190. ; Postprocessing report
  191. ;
  192. ;    1       For/Next
  193. ;    0       While/EndWhile
  194. ;    3       If/Then or If/Then/Else
  195. ;    0       Select Case
  196. ;
  197. ;------------------------------------------------------------------------------
  198. ;                 AEGiS Corp - Break the routines, code against the machines!
  199. ;------------------------------------------------------------------------------
  200.